10 SOUND ON
20 KEY OFF
30 CLEAR ,,,32768!
40 KEY(10) ON:ON KEY (10) GOSUB 190
50 SCREEN 5:CLS
60 FOR X=1 TO 15:PALETTE X,0:NEXT
61 FOR T=1 TO 30:X=INT(RND*319):Y=INT(RND*199):C=INT(RND*15):CIRCLE(X,Y),INT(RND*20)+20,C:PAINT(X,Y),C,C:SOUND T*30,1:NEXT
65 C=0
70 FOR X=1 TO 320 STEP 160:C=C+1:LINE(160,100)-(X,0),C:NEXT
80 FOR Y=1 TO 200 STEP 100:C=C+1:LINE(160,100)-(319,Y),C:NEXT
90 FOR X=320 TO 1 STEP -160:C=C+1:LINE(160,100)-(X,199),C:NEXT
100 FOR Y=200 TO 1 STEP -100:C=C+1:LINE(160,100)-(0,Y),C:NEXT:FOR R=1 TO 200 STEP (200/7):C=C+1:CIRCLE(160,100),R,C:NEXT
160 CN=CN+1:IF CN>15 THEN CN=1
170 PALETTE CN,CN:SOUND INT(RND*16000),1.5:PALETTE CN,0
180 GOTO 160
190 SCREEN 0,0,0:PALETTE:WIDTH 80
200 END
